home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Network Support Library
/
RoseWare - Network Support Library.iso
/
apidev
/
tpapi.exe
/
NWFSSERV.PA1
< prev
next >
Wrap
Text File
|
1994-01-14
|
10KB
|
169 lines
{#Z+}
(*(10U&l12D(s4099T&k2S*)
{***************************************************************************}
{** Program : NWFFSERV **}
{***************************************************************************}
{** Version : 1.4 ** Started : 11/11/91 ** Ended : / / **}
{***************************************************************************}
{******************************** Description ******************************}
{***************************************************************************}
{** OOP library for Netware API **}
{** **}
{** This unit forms the second level object : FILESERVER **}
{** This object is a descandent of : NETWARE **}
{** **}
{** **}
{** **}
{** **}
{***************************************************************************}
{******************************** Information ******************************}
{***************************************************************************}
{** Provides Netware File Server Services (most require Console operator) **}
{** **}
{** **}
{** **}
{** This code is (c) 1991 - 1994 Antonio Covelli. ALL RIGHTS RESERVED. **}
{** Portions (c) Novell Inc, **}
{** **}
{** **}
{***************************************************************************}
{$I NETWARE.INC}
{#Z-}
UNIT NWFSSERV;
INTERFACE
USES
nwvar,
netware;
TYPE
PFileServerOBJ = ^FileServerOBJ;
FileServerOBJ = OBJECT (NetwareOBJ)
FUNCTION CheckConsolePrivileges : WORD;
FUNCTION ClearConnectionNumber (ConnectionNumber : longint) : WORD;
FUNCTION DisableFileServerLogin : WORD;
FUNCTION DisableTransactionTracking : WORD;
FUNCTION DownFileServer (ForceFlag : WORD) : WORD;
FUNCTION EnableFileServerLogin : WORD;
FUNCTION EnableTransactionTracking : WORD;
FUNCTION GetBinderyObjectDiskSpaceLeft (ConnectionID : WORD; ObjectID : OT_BinderyID;
VAR SystemElapsedTime, UnusedDiskBlocks : LONGINT;
VAR RestrictionEnforced : WORD) : WORD;
FUNCTION GetConnectionsOpenFiles (ConnectionID: WORD; ConnectionNumber : longint;
VAR LastRecord, LastTask : WORD; StructSize : WORD;
VAR OpenFiles : Conn_Open_Files) : WORD;
FUNCTION GetConnectionsSemaphores (ConnectionID : WORD; ConnectionNumber : LONGINT;
VAR LastRecord, LastTask : WORD; StructSize : WORD;
VAR OpenSemaphores : Conn_Semaphore ) : WORD;
FUNCTION GetConnectionsTaskInformation (ConnectionID : WORD; ConnectionNumber : LONGINT; VAR TaskPointer : WORD;
StructSize : WORD; VAR ConnectionTaskInfo : Conn_Task_Info) : WORD;
FUNCTION GetConnectionsUsageStats (ConnectionID : WORD; ConnectionNumber : LONGINT; StructSize : WORD;
VAR ConnectionUsage : Conn_Usage) : WORD;
FUNCTION GetConnectionsUsingFile (ConnectionID : WORD; VAR LastRecord, TaskID : WORD;
DirectoryHandle : BYTE; DirectoryPath : TPathName;
StructSize : WORD; VAR ConnUsingFile : Conn_Using_File) : WORD;
FUNCTION GetDiskCacheStats (ConnectionID, StructSize : WORD;
VAR CacheStats : Disk_Cache_Stats) : WORD;
FUNCTION GetDiskChannelStats (ConnectionID, ChannelNumber, StructSize : WORD;
VAR ChannelStats : Disk_Channel_Stats) : WORD;
FUNCTION GetDiskUtilization (ObjectID : OT_BinderyID; VolumeNumber : BYTE;
VAR UsedDirectories, UsedFiles, UsedBlocks : word) : WORD;
FUNCTION GetDriveMappingTable (ConnectionID, StructSize : WORD;
VAR DriveMappingTable : Drive_Map_Table) : WORD;
FUNCTION GetFileServerDateAndTime (VAR DateAndTime : TByte7Array) : WORD;
FUNCTION GetFileServerDescriptionStrings (VAR CompanyName, Revision : TString80;
VAR RevisionDate : TString24;
VAR CopyrightNotice : TString255) : WORD;
FUNCTION GetFileServerExtendedMiscInformation (VAR MiscInfo : Server_Misc_Info) : WORD;
FUNCTION GetFileServerInformation (VAR FileServerInformation : File_Serv_Info) : WORD;
FUNCTION GetFileServerLANIOStats (ConnectionID, StructSize : WORD;
VAR ServerLANIOStats : Server_Lan_IO) : WORD;
FUNCTION GetFileServerLoginStatus (VAR LoginEnabledFlag : WORD) : WORD;
FUNCTION GetFileServerMiscInformation (ConnectionID, StructSize : WORD;
VAR MiscInfo : Server_Misc_Info) : WORD;
PROCEDURE GetFileServerName (ConnectionID : WORD; VAR FileServerName : TObjectName);
FUNCTION GetFileSystemStatistics (ConnectionID, StructSize : WORD;
VAR FileSystemStats : File_Sys_Stats) : WORD;
FUNCTION GetLANDriverConfigInfo (ConnectionID : WORD; LANBoardNumber : BYTE; StructSize : WORD;
VAR LANDriverConfig : LAN_Config) : WORD;
FUNCTION GetLogicalRecordInformation (ConnectionID : WORD; LogicalRecordName : TLogicalRecordName;
VAR LastRecord, LastTask : WORD; StructSize : WORD;
VAR LogicalRecInfo : Logical_Rec_Info) : WORD;
FUNCTION GetLogicalRecordsByConnection (ConnectionID : WORD; ConnectionNumber : LONGINT;
VAR LastRecord, LastTask : WORD; StructSize : WORD;
VAR LogicalRecord : Logical_Record) : WORD;
FUNCTION GetNetworkSerialNumber (VAR SerialNumber : LONGINT;
VAR ApplicationNumber : WORD) : WORD;
FUNCTION GetPathFromDirectoryEntry (ConnectionID : WORD; VolumeNumber : BYTE; DirectoryEntry : WORD;
VAR DirectoryPath : TPathName) : WORD;
FUNCTION GetPhysicalDiskStats (ConnectionID : WORD; PhysicalDiskNumber : BYTE; StructSize : WORD;
VAR PhysicalDiskStats : Phys_Disk_Stats;
VAR DriveDefinition : TString64) : WORD;
FUNCTION GetPhysicalRecordLocksByFile (ConnectionID : WORD; DirectoryHandle : BYTE;
FilePath : TPathName; VAR LastRecord, LastTask : WORD;
StructSize : WORD; VAR RecordLock : Phys_Rec_Lock) : WORD;
FUNCTION GetPhysRecLockByConnectAndFile (ConnectionID : WORD; ConnectionNumber : LONGINT;
VolumeNumber : BYTE; DirectoryHandle : WORD;
FilePath : TPathName; VAR LastRecord, LastTask : WORD;
StructSize : WORD; VAR RecordLock : Short_Phys_Rec_Lock) : WORD;
FUNCTION GetSemaphoreInformation (ConnectionID : WORD; SemaphoreName : TSemaphoreName;
VAR LastRecord, LastTask, OpenCount : WORD;
VAR SemaphoreValue : INTEGER; VAR ConnectionNumber : LONGINT;
VAR TaskNumber : BYTE) : WORD;
FUNCTION SendConsoleBroadcast (Message : TBroadcastMessage; ConnectionCount : WORD;
ConnectionList : TConnectionList) : WORD;
FUNCTION SetFileServerDateAndTime (Year, Month, Day, Hour, Minute, Second : WORD) : WORD;
FUNCTION TTSGetStats (ConnectionID : WORD; VAR LastTask : WORD; StructSize : WORD;
VAR TTSStats : TTS_Stats) : WORD;
FUNCTION VerifySerialization (SerialNumber : LONGINT;
VAR ApplicationNumber : WORD) : WORD;
DESTRUCTOR Done; VIRTUAL;
END;